﻿Imports System.Xml
Imports System.Text
Imports System.Data.OleDb

Public Class frmTeste

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click


        Dim configuracaoBO As New configuracoesBO
        Dim configuracaoVO As New configuracoesVO

        Try
            configuracaoVO = configuracaoBO.getConfiguracoes

            configuracaoBO.udpateConfiguracoes(12, 12)

            configuracaoVO = configuracaoBO.getConfiguracoes

        Catch ex As Exception
            generica.gravaErro(ex)
        End Try


    End Sub
End Class

